home *** CD-ROM | disk | FTP | other *** search
/ Network Supervisor's Toolkit / Network Supervisor's Toolkit.iso / logins / jb-learn / my_commo.mac < prev    next >
Text File  |  1996-07-10  |  20KB  |  464 lines
  1. This is a slightly altered version of the {COMMO} 6.41 COMMO.MAC file to add
  2. JB-Learn hooks.  This file is NOT supported in any way by the author of
  3. {COMMO}.  All support for this version of MY_COMMO.MAC should be done through
  4. me (Jeff Bishop).  Do NOT contact the author of {COMMO} for support of this
  5. file, thank you.
  6.  
  7. This file has a hook in the ALT-U Utility menu for JB-LEARN.  In addition, a
  8. label to easily add hooks into your dialing directory entries has been added.
  9. This is called LEARN and will call the JB-LEARN.MAC macro file to run
  10. JB-LEARN.
  11.  
  12.                                  ┌────────────┐
  13.   PgDn for more macros           │ Macro File │           PgDn for more macros
  14.                                  └────────────┘
  15.  
  16.   Most of the macros in this file support {COMMO} features, such as file
  17.   transfers and VT102 emulation.  Others are provided as examples and may need
  18.   to be modified to work for you.  More examples are shown in SAMPLES.MAC.
  19.  
  20.   See MACRO.DOC for a complete guide to programming {COMMO} macros.
  21.  
  22.  
  23.   ASCII Upload macro, press Alt-A
  24.   ────────────────────────────────────────────────────────────────────────────
  25.   {:ala} {ascii %uldir\} {}             ASCII Upload with upload path
  26.  
  27.  
  28.   Macro to review capture file, press Shift-F8                Program required
  29.   ────────────────────────────────────────────────────────────────────────────
  30.   {:sf8} {exec LIST %_cap /e} {}  (aka Scrollback using no RAM)       LIST.COM
  31.  
  32.  
  33.   Simple login macro, press F2
  34.   ────────────────────────────────────────────────────────────────────────────
  35.   {:nf2} {send First|~~Last|~~~~%_pas|} {}       RBBS, PCBoard, Auntie, etc.
  36.  
  37.  
  38.   Macro to list download directory, press Alt-F10
  39.   ────────────────────────────────────────────────────────────────────────────
  40.   {:af0} {exec-w dir %dldir /w} {}                 Download directory
  41.  
  42.  
  43.   Macros to load VT102/VT220/PINE keyboard files
  44.   ────────────────────────────────────────────────────────────────────────────
  45.   {:vt102} {goto ,vt102.mac}        Put "vt102" in directory macro field
  46.   {:vt220} {goto ,vt220.mac}        Put "vt220" in directory macro field
  47.   {:pine}  {goto ,pine.mac}         Put "pine" in directory macro field
  48.  
  49.  
  50.   Macro to login to a PCBoard (put "pcb" in Dialing Directory macro field)
  51.   ────────────────────────────────────────────────────────────────────────────
  52.   {:pcb} {capture y,c:\commo\pcb.cap} {asci ,}
  53.          {setlook 60,hng}
  54.          {lookfor graphics} {send y|}
  55.          {setlook 60,hng,6,n|}
  56.          {lookfor first name?}
  57.          {send First Last|~%_pas|}          <= your name here
  58.          {lookfor Main Board Command?} {}
  59.   {:hng} {hangup y} {stop}
  60.  
  61.  
  62.   CompuServe login macro
  63.   ────────────────────────────────────────────────────────────────────────────
  64.   {:cis} {setlook 45,hng,2,^c} {send ^c}
  65.          {capt y,c:\commo\cis.%_day} {asci ,:}
  66.          {lookfor User ID:} {send XXXXX,XXX|}  <= Change to your user ID
  67.          {setl 20,hng} {lookfor Password:} {send %_pas|} {}
  68.  
  69.  
  70.   GEnie login macro
  71.   ────────────────────────────────────────────────────────────────────────────
  72.   {:genie}
  73.          {setlook 90,hng} {capt y,c:\commo\genie.%_day}
  74.          {asci ,>} {local y} {send ~H~H~H}
  75.          {lookfor u#} {send XXXXXXXX,%_pas|} {}  <= Change to your user #
  76.  
  77.  
  78.   Doorway Mode macro (key must be defined in COMMO.SET)
  79.   ────────────────────────────────────────────────────────────────────────────
  80.   {:al=} {doorway} {}                   Toggle Doorway Mode
  81.  
  82.  
  83.   DOWNLOAD (receive) menu macro
  84.   ────────────────────────────────────────────────────────────────────────────
  85.   {:pgd} {:mpd}
  86.    {setv _menu1,               [F1] for HELP}
  87.    {setv _menu3, Z ■ Zmodem batch (mode=%zr_mode)        Internal}
  88.    {setv _menu4, (Press "M" to change Zmodem receive mode)}
  89.    {setv _menu5, Y ■ Ymodem batch                 Internal}
  90.    {setv _menu6, G ■ Ymodem-G batch               Internal}
  91.    {setv _menu7, X ■ Xmodem-CRC  (or old Ymodem)  Internal}
  92.    {setv _menu8, O ■ Xmodem-G                     Internal}
  93.    {setv _menu9, S ■ Xmodem csum                  Internal}
  94.   {setv _menu11,   IMPORTANT:  The following external}
  95.   {setv _menu12,    protocols require that the indicated}
  96.   {setv _menu13,    program be installed on your system.}
  97.   {setv _menu15, H ■ HS/Link              using HSLINK.EXE}
  98.   {setv _menu16, K ■ Kermit               using KERMIT.EXE}
  99.   {setv _menu17, B ■ CompuServe B, B+     using OZBEXT.EXE}
  100.    {setv _mlabel,phld,pcbr,,,,,pygr,phbr,,,pckr,,pmzm,,pxgr,,,,px2r,,,,,px1r,pybr,pzbr}
  101.    {setv _mcolor,%menu_clr}
  102.    {menu 21,47,DOWNLOAD Protocol Menu} {return}
  103.  
  104.   Help        {:phld} {help z} {goto mpd}
  105.   Zmodem      {:pzbr} {setv pr_alarm} {setv pr_down,%dldir} {call z_recv} {}
  106.   Y batch     {:pybr} {setv pr_alarm} {setv pr_down,%dldir} {call yb_recv} {}
  107.   Y-G batch   {:pygr} {setv pr_alarm} {setv pr_down,%dldir} {call yg_recv} {}
  108.   X CRC       {:px1r} {setv pr_alarm} {call gfnd} {call xc_recv} {}
  109.   X-G         {:pxgr} {setv pr_alarm} {call gfnd} {call xg_recv} {}
  110.   X csum      {:px2r} {setv pr_alarm} {call gfnd} {call xs_recv} {}
  111.   HSLink      {:phbr} {setv pr_alarm} {setv pr_down,%dldir} {setv pr_file}
  112.                       {info-q0s0 Any files to upload?}
  113.                       {ifco ,phbr_1} {call gfnu}
  114.               {:phbr_1} {call h_recv} {}
  115.   Kermit      {:pckr} {setv pr_alarm} {setv pr_down,%dldir} {call k_recv} {}
  116.   CIS BPlus   {:pcbr} {setv pr_alarm} {setv pr_down,%dldir} {call b_recv} {}
  117.  
  118.   {:gfnd} {setv pr_file,%dldir\} {input pr_file,Enter a filename to DOWNLOAD}
  119.           {ifex %pr_file,,gf_y} {info-q0 File exists, overwrite?}
  120.           {ifco gf_y} {send ^x^x^x^x^x^x^x^x^h^h^h^h^h^h^h^h^h^h} {}
  121.   {:gf_y} {return}
  122.  
  123.  
  124.   UPLOAD (send) menu macro
  125.   ────────────────────────────────────────────────────────────────────────────
  126.   {:pgu} {:mpu}
  127.    {setv _menu1,               [F1] for HELP}
  128.    {setv _menu3, Z ■ Zmodem batch                 Internal}
  129.    {setv _menu4, Y ■ Ymodem batch                 Internal}
  130.    {setv _menu5, G ■ Ymodem-G batch               Internal}
  131.    {setv _menu6, X ■ Xmodem-1K  (old Ymodem)      Internal}
  132.    {setv _menu7, O ■ Xmodem-G                     Internal}
  133.    {setv _menu8, S ■ Xmodem                       Internal}
  134.   {setv _menu10,   IMPORTANT:  The following external}
  135.   {setv _menu11,    protocols require that the indicated}
  136.   {setv _menu12,    program be installed on your system.}
  137.   {setv _menu14, H ■ HS/Link              using HSLINK.EXE}
  138.   {setv _menu15, K ■ Kermit               using KERMIT.EXE}
  139.   {setv _menu16, B ■ CompuServe B, B+     using OZBEXT.EXE}
  140.    {setv _mlabel,phlu,pcbs,,,,,pybs,phbs,,,pcks,,,,px1s,,,,px2s,,,,,px1s,pybs,pzbs}
  141.    {setv _mcolor,%menu_clr}
  142.    {menu 20,47,UPLOAD Protocol Menu} {return}
  143.  
  144.   Help        {:phlu} {help z} {goto mpu}
  145.   Y batch     {:pybs} {setv pr_alarm} {call gfnu} {call yb_send} {}
  146.   X-1K        {:px1s} {setv pr_alarm} {call gfnu_x} {call xk_send} {}
  147.   X           {:px2s} {setv pr_alarm} {call gfnu_x} {call x_send} {retu}
  148.   Zmodem      {:pzbs} {setv pr_alarm} {call gfnu} {call z_send} {}
  149.   HS/Link     {:phbs} {setv pr_alarm} {setv pr_down,%dldir} {call gfnu}
  150.                       {call h_send} {}
  151.   Kermit      {:pcks} {setv pr_alarm} {call gfnu_x} {call k_send} {}
  152.   CIS BPlus   {:pcbs} {setv pr_alarm} {setv pr_up,%uldir} {call b_send} {}
  153.  
  154.   {:gfnu}   {call sel_delsend}
  155.             {inst sel_up,y} {comp _pos,1} {ifco gfnu_s}
  156.             {setv pr_file,%uldir\}
  157.             {input pr_file,Filename to UPLOAD (Press Enter for picklist)}
  158.             {comp pr_file} {ifco gfnu_s}
  159.             {comp pr_file,%uldir\} {ifco gfnu_s}
  160.             {ifex %pr_file,,gfnu_n} {return}
  161.   {:gfnu_n} {info-d2 File not found}
  162.   {:gfnu_s} {inst sel_pns,y} {comp _pos,1} {ifco gfnu_p}
  163.             {call select} {goto gfnu_t}
  164.   {:gfnu_p} {setv pr_file,@%_hom%^(send^).lst}
  165.             {exec-d %protodir\COMMOPNS.EXE %_hom%^(send^).lst -D%uldir -S%_mod}
  166.   {:gfnu_t} {comp pr_file} {ifco gfnu_c}
  167.             {ifexist %_hom^(send^).lst,,gfnu_c} {return}
  168.   {:gfnu_c} {send ^x^x^x^x^x^x^x^x^h^h^h^h^h^h^h^h^h^h}
  169.             {inform-s0d1 No files to send} {}
  170.  
  171.   {:gfnu_x} {call gfnu} {ifex %_hom^(send^).lst,,gfnu_r}
  172.             {ropen %_hom^(send^).lst,gfnu_c}
  173.   {:gfnu_a} {read pr_file} {comp pr_file} {ifco gfnu_a} {rclose}
  174.   {:gfnu_r} {return}
  175.  
  176.  
  177.   Protocol macros used for DOWNLOADING (receiving)
  178.   ────────────────────────────────────────────────────────────────────────────
  179.    These are the basic download protocol macros and may be CALLed
  180.    from anywhere. The following variables must be set (if applicable):
  181.      pr_down    download directory
  182.      pr_file    filespec (files to download)
  183.      pr_alarm   set to: 0    - alarm off
  184.                         1+   - number of rings
  185.                         null - default rings (from setup)
  186.  
  187.   Internals
  188.    {:z_recv}  {goto zmr_%zr_mode}                              Zmodem batch
  189.     {:zmr_s} {:zmr_} {rzmo %pr_down} {goto zmr_end}   Skip (default)
  190.     {:zmr_r}  {rzmo-r %pr_down} {goto zmr_end}        Resume
  191.     {:zmr_n}  {rzmo-n %pr_down} {goto zmr_end}        Rename
  192.     {:zmr_o}  {rzmo-y %pr_down} {goto zmr_end}        Overwrite
  193.     {:zmr_end} {alarm %pr_alarm} {retu}
  194.    {:yb_recv} {rymo %pr_down} {alarm %pr_alarm} {retu}         Ymodem batch
  195.    {:yg_recv} {rymo-g %pr_down} {alarm %pr_alarm} {retu}       Ymodem-G batch
  196.    {:xc_recv} {rxmo-y %pr_file} {alarm %pr_alarm} {retu}       Xmodem-CRC
  197.    {:xg_recv} {rxmo-gy %pr_file} {alarm %pr_alarm} {retu}      Xmodem-G
  198.    {:xs_recv} {rxmo-c0y %pr_file} {alarm %pr_alarm} {retu}     Xmodem-Csum
  199.  
  200.   HS/Link
  201.    {:h_recv} {exec-d %protodir\HSLINK.EXE -pb0x%_pad -pi%_irq -nv %pr_file -u%pr_down}
  202.              {alarm %pr_alarm} {retu}
  203.  
  204.   Kermit
  205.    {:k_recv} {exec-d %protodir\KERMIT.EXE set file type binary, log transaction %_uselog, set port %_por, cd %pr_down, receive}
  206.              {alarm %pr_alarm} {retu}
  207.  
  208.   CIS BPlus
  209.    {:b_recv} {exec-d %protodir\OZBEXT.EXE /c%_por /f%pr_down /n /x}
  210.              {alarm %pr_alarm} {retu}
  211.  
  212.  
  213.   Protocol macros used for UPLOADING (sending)
  214.   ────────────────────────────────────────────────────────────────────────────
  215.    These are the basic upload protocol macros and may be CALLed
  216.    from anywhere. The following variables must be set (if applicable):
  217.      pr_up      upload directory (B+ only)
  218.      pr_down    download directory (HS/Link only)
  219.      pr_file    filespec (files to upload)
  220.      pr_alarm   set to: 0    - alarm off
  221.                         1+   - number of rings
  222.                         null - default rings (from setup)
  223.  
  224.   Internals
  225.    {:z_send}  {szmo %pr_file} {alarm %pr_alarm} {retu}       Zmodem batch
  226.    {:yb_send} {symo-k %pr_file} {alarm %pr_alarm} {retu}     Ymodem batch
  227.    {:xk_send} {sxmo-k %pr_file} {alarm %pr_alarm} {retu}     Xmodem 1k
  228.    {:x_send}  {sxmo %pr_file} {alarm %pr_alarm} {retu}       Xmodem
  229.  
  230.   HS/Link
  231.    {:h_send} {exec-d %protodir\HSLINK.EXE -pb0x%_pad -pi%_irq -nv %pr_file -u%pr_down}
  232.              {alarm %pr_alarm} {retu}
  233.  
  234.   Kermit
  235.    {:k_send} {exec-d %protodir\KERMIT.EXE set file type binary, log transaction %_uselog, set port %_por, send %pr_file}
  236.              {alarm %pr_alarm} {retu}
  237.  
  238.   CIS BPlus
  239.    {:b_send} {exec-d %protodir\OZBEXT.EXE /c%_por /f%pr_up /n /x}
  240.              {alarm %pr_alarm} {retu}
  241.  
  242.  
  243.   Zmodem like-named file menu macro
  244.   ────────────────────────────────────────────────────────────────────────────
  245.   {:pmzm}
  246.    {goto zmm_%zr_mode}
  247.   {:zmm_s} {:zmm_} {setv zmr_disp,Skip} {setv zmr_temp,s} {goto zmr_menu}
  248.   {:zmm_r} {setv zmr_disp,Resume} {setv zmr_temp,r} {goto zmr_menu}
  249.   {:zmm_n} {setv zmr_disp,Rename} {setv zmr_temp,n} {goto zmr_menu}
  250.   {:zmm_o} {setv zmr_disp,Overwrite} {setv zmr_temp,o}
  251.   {:zmr_menu}
  252.    {setv _menu1,    This parameter tells ^(COMMO^) what to}
  253.    {setv _menu2,    do when a file received with Zmodem}
  254.    {setv _menu3,    has the same name as a file that is}
  255.    {setv _menu4,    already in the download directory.}
  256.    {setv _menu6, S ■ Skip (do not receive the file)}
  257.    {setv _menu7, R ■ Resume (receive remainder of file)}
  258.    {setv _menu8, N ■ Rename (change last letter of name)}
  259.    {setv _menu9, O ■ Overwrite (replace the existing file)}
  260.    {setv _menu11,       Current setting is "%zmr_disp"}
  261.    {setv _menu13,       Press Enter to save setting}
  262.    {setv _mlabel,,,,,,,,,,,,,,zmm_n,zmm_o,,,zmm_r,zmm_s}
  263.    {setv _menter,zmr_done}
  264.    {setv _mcolor,%menu_clr}
  265.    {window-k}
  266.    {menu 17,47,Set Zmodem File Receive Mode} {goto zmr_esc}
  267.   {:zmr_done}
  268.    {setv zr_mode,%zmr_temp}
  269.   {:zmr_esc}
  270.    {setv zmr_disp} {setv zmr_temp} {wind-k0} {goto mpd}
  271.  
  272.  
  273.   File select macro used for uploading files
  274.   ────────────────────────────────────────────────────────────────────────────
  275.  
  276.   {:select}
  277.         {setv dsksav,%_dsk} {setv dirsav,%_dir}
  278.   {:sel_curdir}
  279.         {setv drive,%_dsk} {setv path,%_dir}
  280.         {comp uldir} {ifco sel_nouldir}
  281.         {setv path,%uldir} {inst %uldir,:}
  282.         {comp _pos,2} {ifco ,sel_nodrive}
  283.         {subs drive,1,2,%uldir} {subs path,3,66,%uldir}
  284.   {:sel_nouldir}
  285.         {call sel_chkpath}
  286.   {:sel_nodrive}
  287.         {file %drive%%path\*.*}
  288.         {ifco sel_dirok}
  289.         {info-q ULDIR is not a valid directory.  Change it?}
  290.         {ifco ,sel_exit}
  291.         {input uldir,Enter new upload directory (no "\" at end)}
  292.         {goto sel_curdir}
  293.   {:sel_dirok}
  294.         {exec-n %drive}
  295.         {comp path} {ifco sel_root}
  296.         {exec-n cd %path} {goto sel_topm}
  297.   {:sel_root}
  298.         {exec-n cd \}
  299.   {:sel_topm}
  300.         {file %drive%%path\*.*} {setv x,1} {setv endflag,0}
  301.   {:sel_floop}
  302.         {leng %_ffn} {setv padlen,12} {decr padlen,%_len}
  303.         {subs pad,1,%padlen,             }
  304.         {setv temp,%_ffn%%pad} {leng %_ffs}
  305.         {setv padlen,9} {decr padlen,%_len}
  306.         {subs pad,1,%padlen,             }
  307.         {setv temp,%temp%%pad%%_ffs}
  308.         {setv temp,%temp  %_ffd  %_fft}
  309.         {setv menu%x,%temp} {setv xl,%x} {incr x} {file-x}
  310.         {ifco ,sel_nomore}
  311.         {comp x,10} {ifco ,sel_floop}
  312.   {:sel_msetup}
  313.         {setv menu11,   [N]  Next page             [Enter] to start upload}
  314.   {:sel_lsetup}
  315.         {setv x,1}
  316.   {:sel_mloop}
  317.         {comp menu%x} {ifco sel_dispm}
  318.         {setv-s temp,menu%x}
  319.         {setv _menu%x,     %x% ■  %temp} {incr x}
  320.         {comp x,11} {ifco ,sel_mloop}
  321.   {:sel_dispm}
  322.         {setv _menu11,%menu11}
  323.         {setv _menu12,   [T]  Top of directory      [M]  Manual entry}
  324.         {setv _menu13,   [W]  vieW/edit send list   [V]  change driVe}
  325.         {setv _menu15,   "\.." = parent directory   "\xxxxx" = subdirectory}
  326.         {setv _menter,sel_done}
  327.         {setv _mlabel,sel_sel,sel_sel,sel_sel,sel_sel,sel_sel,sel_sel,sel_sel,sel_sel,sel_sel,,,,sel_manual,sel_next,,,,,,sel_topm,,sel_drive,sel_view,sel_done}
  328.         {setv _mcolor,%menu_clr}
  329.         {window-k}
  330.         {menu 19,60,Selecting files from: %drive%%path\}
  331.         {setv pr_file}
  332.         {call sel_delsend} {goto sel_exit}
  333.   {:sel_next}
  334.         {comp endflag,1} {ifco sel_enddisp}
  335.         {setv x,1} {goto sel_floop}
  336.   {:sel_nomore}
  337.         {call sel_clrmenu}
  338.         {setv menu11,   ** LAST PAGE **            [Enter] to start upload}
  339.         {setv endflag,1} {goto sel_lsetup}
  340.   {:sel_enddisp}
  341.         {setv endflag,0} {goto sel_topm}
  342.   {:sel_sel}
  343.         {comp _msn,%xl} {ifco-g sel_lsetup}
  344.         {setv-s temp,menu%_msn} {inst temp,\}
  345.         {comp _pos,1} {ifco ,sel_isfile}
  346.         {subs temp,2,8,%temp} {exec-n cd %temp} {setv path,%_dir}
  347.         {call sel_chkpath} {goto sel_topm}
  348.   {:sel_isfile}
  349.         {comp temp} {ifco sel_msetup}
  350.         {inst temp, } {setv x,%_pos} {decr x}
  351.         {subs temp,1,%x,%temp}
  352.         {wopen-a %_hom%^(send^).lst} {write %drive%%path%\%temp}
  353.         {wclose} {goto sel_lsetup}
  354.   {:sel_done}
  355.         {setv pr_file,@%_hom%^(send^).lst}
  356.   {:sel_exit}
  357.         {call sel_cleanup} {return}
  358.   {:sel_cleanup}
  359.         {exec-n %dsksav} {exec-n cd %dirsav}
  360.         {setv x,1} {call sel_clrmenu}
  361.         {setv endflag} {setv dsksav} {setv dirsav} {setv temp} {setv drive}
  362.         {setv path} {setv x} {setv xl} {setv pad} {setv padlen}
  363.         {wind-k0} {return}
  364.   {:sel_clrmenu}
  365.         {setv menu%x,} {incr x}
  366.         {comp x,12} {ifco ,sel_clrmenu} {return}
  367.   {:sel_chkpath}
  368.         {leng %path}
  369.         {comp _len,1} {ifco ,sel_notroot} {setv path}
  370.   {:sel_notroot}
  371.         {return}
  372.   {:sel_delsend}
  373.         {ifex %_hom%^(send^).lst,,sel_nolst}
  374.         {exec-n del %_hom%^(send^).lst}
  375.   {:sel_nolst}
  376.         {return}
  377.   {:sel_view}
  378.         {edit %_hom%^(send^).lst} {goto sel_lsetup}
  379.   {:sel_drive}
  380.         {wind-k0} {setv temp,%drive}
  381.         {sete-p0 sel_escoff}
  382.         {input temp,Enter new drive letter}
  383.         {setesc}
  384.         {comp temp} {ifco sel_lsetup}
  385.         {subs temp,1,1,%temp} {setv drive,%temp:}
  386.         {exec-n %drive} {setv path,%_dir}
  387.         {call sel_chkpath} {goto sel_topm}
  388.   {:sel_manual}
  389.         {wind-k0} {sete-p0 sel_escoff}
  390.         {setv temp,%uldir\}
  391.         {input temp,Enter a filename to UPLOAD}
  392.         {comp temp} {ifco sel_escoff}
  393.         {wopen-a %_hom%^(send^).lst}
  394.         {write %temp} {wclose}
  395.   {:sel_escoff}
  396.         {setesc} {goto sel_lsetup}
  397.  
  398.  
  399.   Macros for Utility Menu
  400.   ────────────────────────────────────────────────────────────────────────────
  401.   {:alu}
  402.    {setv _menu1, A ≡ Edit an External File}
  403.    {setv _menu3, B ≡ Run a Macro}
  404.    {setv _menu5, C ≡ Load a Macro File}
  405.    {setv _menu7, D ≡ Run MOSTHOST host mode}
  406.    {setv _menu8,     (use E to install)}
  407.    {setv _menu10, E ≡ View/Edit MOSTHOST}
  408.    {setv _menu12, J ≡ Run JB-Learn}
  409.    {setv _mlabel,uext,urun,uload,uhost,vhost,,,,,learn}
  410.    {setv _mcolor,%menu_clr}
  411.    {menu 16,32,Macro Utility Menu} {}
  412.  
  413.   {:urun}  {setv temp} {input temp,Macro to run} {goto %temp} {}
  414.  
  415.   {:uload}  {setv temp} {input temp,Macro File to load} {goto-f ,%temp}
  416.  
  417.   {:uext}  {setv temp} {input temp,Filename to edit}
  418.            {:uedit} {edit %temp} {goto alu} {}
  419.  
  420.   {:uhost} {call bbs,mosthost.mac}
  421.  
  422.   {:vhost} {setv temp,%_hom%mosthost.mac} {goto uedit}
  423.  
  424.  
  425.                     ──────────────────────────────
  426.                     Full Screen Editor Key Support
  427.                     ──────────────────────────────
  428.  
  429.   The following keys are used by full screen editors such as Visual Editor in
  430.   ProDoor, PCBoard's full screen editor, ANSIED in RBBS and others.  They may
  431.   be changed to suit your own needs (all keys do not work with all editors --
  432.   capture the editor help info on the BBS).  See Appendix D in COMMO.DOC for
  433.   details on character representation.
  434.  
  435.   Note that the left arrow function (^S) is also the XOFF character. This may
  436.   cause a problem on some systems.  If pressing the left arrow seems to hang
  437.   the remote, press Ctrl-Q and change the "lfa" macro to:
  438.  
  439.          {send ^[[D} {}  or  {send ^@K} {}
  440.  
  441.   PgUp and PgDn are normally used for uploading and downloading.  To use them
  442.   for editing, change the key-labels in the menus above.
  443.  
  444.   Macro                   Key             Function
  445.   ────────────────────────────────────────────────────────────────────────────
  446.   {:hom} {send ^W} {}     Home            Start of line
  447.   {:end} {send ^P} {}     End             End of line
  448.   {:pgu} {send ^R} {}     PgUp            Page up
  449.   {:pgd} {send ^C} {}     PgDn            Page down
  450.  
  451.   {:upa} {send ^E} {}     Up Arrow        Cursor up
  452.   {:dna} {send ^X} {}     Down Arrow      Cursor down
  453.   {:lfa} {send ^S} {}     Left Arrow      Cursor left
  454.   {:rta} {send ^D} {}     Right Arrow     Cursor right
  455.  
  456.   {:cla} {send ^A} {}     ^Left Arrow     Word left
  457.   {:cra} {send ^F} {}     ^Right Arrow    Word right
  458.  
  459.   {:ins} {send ^V} {}     Insert          Toggle insert mode
  460.   {:del} {send ^G} {}     Delete          Delete character
  461.   {:cnd} {send ^K} {}     ^End            Delete to end of line
  462. {:LEARN}{GOTO JB-LEARN,JB-LEARN.MAC}{STOP}
  463.                                 - end -
  464.